COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST"
C00003 ENDMK
C⊗;
BEGIN "TEST"
REQUIRE '15&'12&"THERE ARE THREE PROTECT!ACS'S IN HERE, THE SECOND WILL BOMB OUT"
		&'15&'12 MESSAGE;
INTEGER ZIP;

OUTSTR("HI THERE"&'15&'12);
ZIP←1;
START!CODE
PROTECT!ACS 1;		COMMENT FIRST TIME;
MOVE  1,ZIP;
ADD  1,1;
MOVEM 1,ZIP;
END;

OUTSTR(CVS(ZIP)&'15&'12);

START!CODE
PROTECT!ACS 1;		COMMENT SECOND TIME ENCOUNTERED;
MOVEI 2,3;
ADD  1,2;
MOVEM 1,ZIP;
END;

OUTSTR(CVS(ZIP)&'15&'12);

START!CODE
PROTECT!ACS 2,3,4;		COMMENT THIRD TIME;
MOVE 3,ZIP;
SUBI 3,2;
MOVEM 3,ZIP
END;

OUTSTR(CVS(ZIP)&'15&'12);
END "TEST";